home *** CD-ROM | disk | FTP | other *** search
- section text,code
-
- PopAll equ -$fc
- Wait equ -$13e
- OpenLibrary equ -$228
- CloseLibrary equ -$19e
-
- start:
- move.l 4,a6 ; get exec.library
- lea PPName(PC),a1 ; get popper.library
- moveq.l #0,d0 ; any version
- jsr OpenLibrary(a6) ;
- move.l d0,d6 ; verify we have the library
- beq byebye ;
-
- move.l d6,a6 ; Pop all
- moveq.l #1,d0 ;
- jsr PopAll(a6) ;
-
- move.l 4,a6 ; wait for Ctrl-C
- moveq.l #0,d0 ;
- bset.l #12,d0 ;
- jsr Wait(a6) ;
-
- move.l d6,a6 ; Pop not
- moveq.l #0,d0 ;
- jsr PopAll(a6) ;
-
- move.l 4,a6 ; close newgad
- move.l d6,a1 ;
- jsr CloseLibrary(a6) ;
-
- byebye:
- rts
-
- PPName:
- dc.b 'popper.library',0
-
- end
-